## Exerccio 5

#Editando alguns parmetros grficos
e.salina=file.choose()
esa=read.table(e.salina, header=TRUE, sep=",",dec=".",as.is=TRUE)
head(esa)
str(esa)
plot(esa$h~esa$dap)

plot(esa$h~esa$dap, main="E.salina", xlab="dap (cm)", ylab="altura (m)")# grafico espalhagrama !

# explicao de Tick est dentro de plot-par
#colocando tick para dentro - sinal positivo

par(bty="l")# tick
par(tcl=0.3)# L 
plot(esa$h~esa$dap)# ver alteraes, os nomes sumiram !

# colocando os nomes novamente ! 
plot(esa$h~esa$dap,main="E. salina", xlab="dap (cm)", ylab="altura (m)") 

# Fontes

par(cex=1.5)# aumentando a fonte - mais do que 1.5 no fica bom !
plot(esa$h~esa$dap, main="E. salina", xlab="dap (cm)", ylab="altura (m)") 

# Dois grficos juntos

#(boxplot) da varivel dap em funo do fator talho
head(esa)
boxplot(esa$dap~esa$talhao)

#mdia e uma barra de desvio-padro do dap, para cada talho
summary(esa)
table(esa$talhao)
# tapply para devolver todos os tipos de talhao

mean.tl= tapply(esa$dap, esa$talhao, FUN= mean)#calculo da media por tal
sd.tl=tapply(esa$dap, esa$talhao, FUN= sd)#desvio por tal
mean.tl
sd.tl

par(mfrow=c(1,2))


tal=c(mean.tl,sd.tl) # juntando em um objeto
tal# ok
help(matrix)
mat=matrix(,6,2)
args(matrix)

help(dimnames)
mat=matrix(tal,6,2,byrow = FALSE, colnames=col, rownames=talhao.n) faxendo uma matrix com os dados!
mat
help(boxplot)
args(boxplot)

#Colocando a e b !
boxplot(mat,names=c("a","b"))


#Adivinhando o cdigo

adivinhando=file.choose()
adv=read.table(adivinhando,header=TRUE, sep=",", dec=".", as.is=TRUE)
adv

# o primeiro grafico  um espalhagrama das distancias em funo do log do tamanho de algo !

#x2 so as dictancias ! comparando os valores com o grafico 
#x1 so os tamanhos do patch

str(adv)
class(adv$x1)
# logo  o grafico q  o plot de x2~(log)x1 
plot(adv$x2~adv$x1))


#Adivinhando o cdigo

adivinhando=file.choose()
adv=read.table(adivinhando,header=TRUE, sep=",", dec=".", as.is=TRUE)
adv

# o primeiro grafico  um espalhagrama das distancias em funo do log do tamanho de algo !

#x2 so as dictancias ! comparando os valores com o grafico 
#x1 so os tamanhos do patch

str(adv)
class(adv$x1)
# logo  o grafico q  o plot de x2~(log)x1 
plot(adv$x2~adv$x1)


# grafico 2 - boxplot de distancia (x2) e categorias (y2)
#boxplot de 
boxplot(adv$x2~adv$y2)

# aparentemente tudo certo, "s" falta as configuraes !








